unit U_UserManager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBGridEhGrouping, ExtCtrls, RzPanel, RzDBNav, StdCtrls,
  Mask, DBCtrls, GridsEh, DBGridEh, DBCtrlsEh, DBLookupEh,WSCstFrm;

type
  TFormUserManager = class(TWSCustomForm)
    DataSource1: TDataSource;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    dbedtUSER_NAME: TDBEdit;
    Label2: TLabel;
    dbedtUSER_PASS: TDBEdit;
    RzDBNavigator1: TRzDBNavigator;
    Label3: TLabel;
    DBLookupComboboxEh1: TDBLookupComboboxEh;
  private
    { Private declarations }
  protected
     procedure iniForm;override;
  public
    { Public declarations }
  end;

var
  FormUserManager: TFormUserManager;

implementation
  uses CommonDM;
{$R *.dfm}

procedure TFormUserManager.iniForm;
begin
  inherited;
   with CommonData.adouser do
    begin
      Close;
      Open;

    end;
      with CommonData.adoqAgent do
    begin
      close;
      Open;
    end;
end;

end.
